home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MASKOSUN.DSK / ROOM 16.0.txt < prev    next >
Text File  |  2014-09-09  |  2KB  |  139 lines
  1. .S N=16
  2. .L L,TEMPL EX
  3. .!DRAW
  4. .P "You enter a room with an exit at either end and a door in the middle. The middledoor is ;
  5. .I N0(16):4
  6. .E P "closed.
  7. .T P "open.
  8. .$ P
  9. .!MORE
  10. .P "Pedestals flank the doorway. On the
  11. .T P "right pedestal;
  12. .T J +4
  13. .I N0(16):2
  14. .T P "ground;
  15. .E P "left pedestal;
  16. .P " is a stone urn.
  17. .!HERE
  18. !LOOK
  19. .P "The room has exits to the left and rightand a door in front of you.
  20. %LOUR
  21. .P "It looks like it held hot coals.
  22. %GTUR
  23. .I N0(16):1
  24. .T P "You already have it.
  25. .T J -3
  26. .S N1(16)=N0(16)
  27. .S N0(16)=1
  28. .!DRAW
  29. .I N1(16):4
  30. .T P "The door closes.
  31. .E P "The urn is very heavy. You can hardly   move it.
  32. .$ P
  33. %DRUR
  34. .!NURN
  35. .T J -2
  36. .S N0(16)=2
  37. .P "You set the urn down next to you.
  38. !NURN
  39. .!CLRT
  40. .I N0(16)#1
  41. .T P "You don't have the urn.
  42. DROP URN  LEFT PEDES
  43. SET  URN  LEFT PEDES
  44. PUT  URN  LEFT PEDES
  45. PLACEURN  LEFT PEDES
  46. .!NURN
  47. .T J -2
  48. .S N0(16)=0
  49. .!DRAW
  50. ._ P
  51. .!CLRT
  52. .P "You set the urn down with a sigh.
  53. .$ P
  54. DROP URN  RIGHTPEDES
  55. SET  URN  RIGHTPEDES
  56. PUT  URN  RIGHTPEDES
  57. PLACEURN  RIGHTPEDES
  58. .!NURN
  59. .T J -2
  60. .S N0(16)=3
  61. .!DRAW
  62. ._ P
  63. .!CLRT
  64. .P "You set the urn down on the pedestal.
  65. .P "You hear a click as the column moves
  66. .P "a fraction of an inch.
  67. .$ P
  68. .!MORE
  69. .S N0(16)=4
  70. .!DRAW
  71. .P "With startling swiftness the middle
  72. .P "door opens!
  73. .$ P
  74. DROP URN  PEDES
  75. SET  URN  PEDES
  76. PUT  URN  PEDES
  77. PLACEURN  PEDES
  78. .!NURN
  79. .T J -2
  80. .P "You must specify which pedestal.
  81. PEDIS
  82. .!CLRT
  83. .P "It's spelled pedestal.
  84. INVEN
  85. EQUIP
  86. .!CLRT
  87. .I N0(16):1
  88. .T P "You can't see what you have when you're holding a massive urn.
  89. .E %..EQ
  90. %FW..
  91. %..EN
  92. .I N0(16)#4
  93. .T P "The door is closed. You can't open it.
  94. .E 3 ROOM 7.1  
  95. .E !GOTO
  96. !NOGO
  97. .I N0(16):1
  98. .T P "The urn is very heavy, you can't
  99. .T P "carry it anywhere.
  100. %L...
  101. .!NOGO
  102. .E S GE(6)=17
  103. .E 3 ROOM 13.0 
  104. .E !TUNL
  105. %R...
  106. .!NOGO
  107. .T J -2
  108. .I N0(17):4
  109. .T S GE(6)=100
  110. .T 3 ROOM 16.0 
  111. .E S GE(6)=0
  112. .E 3 ROOM 17.0 
  113. .!TUNL
  114. !DRAW
  115. .S P=3-P
  116. .C 1,P,0
  117. .B RGHTL
  118. .S V=P
  119. .D 
  120. .I N0(16):0
  121. .T B PED1J
  122. .E B PED1N
  123. .S V=P
  124. .D 
  125. .I N0(16)>2
  126. .T B PED2J
  127. .E B PED2N
  128. .S V=P
  129. .D 
  130. .B TMPEX
  131. .I N0(16):4
  132. .T S CO(15)=4
  133. .S V=P
  134. .D 
  135. ._ P
  136. .!CLRT
  137. @@@@@
  138.  
  139.